home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / WzonkaLad.lha / WzonkaLad / WzonkaLad Install < prev    next >
Text File  |  1997-01-16  |  3KB  |  169 lines
  1. ; $VER Wzonka-Lad Installer Script 0.5 (15-Jan-97)
  2. ; Installer made by Lennart Johannesson
  3. ; For comments, bugs (yes, I know there's a lot of them)
  4. ; suggestions etc. write to: 95lenjo@ostrabo.uddevalla.se
  5.  
  6.  
  7. ;---------------------------------------------
  8. ;|Asks where to place the wzonkalad directory| 
  9. ;---------------------------------------------
  10.  
  11. (set @default-dest 
  12.     (askdir (prompt "Where would you like me to create the\n\"WzonkaLad\" directory?")
  13.             (help @askdir-help)
  14.             (default "ram:")
  15.             (newpath)
  16.     )
  17. )
  18.  
  19. ;-----------------------------
  20. ;|Creates Wzonkalad directory|
  21. ;-----------------------------
  22.  
  23.  
  24. (set target
  25.     (tackon @default-dest (cat "WzonkaLad")))
  26.  
  27. (makedir target
  28.      (prompt "Creating directory:\n\""target"\"")
  29.     (help @makedir-help)
  30.     (infos)
  31. )
  32.  
  33. (set @default-dest (target))
  34.  
  35. ;-------------------------
  36. ;|Installs the executable|
  37. ;-------------------------
  38.  
  39. (copyfiles
  40.     (prompt "Where would you like me to put the executable?")
  41.     (help @copyfiles-help)
  42.     (source "WzonkaLad")
  43.     (dest @default-dest)
  44.     (files)
  45.     (infos)
  46.     (confirm)
  47. )
  48.  
  49. (set @default-dest (target))
  50.  
  51. ;------------------------
  52. ;|Installs the documents|
  53. ;------------------------
  54.  
  55. (copyfiles
  56.     (prompt "Would you like to install the documents?")
  57.     (help @copyfiles-help)
  58.     (source "WzonkaLad.guide")
  59.     (dest @default-dest)
  60.     (files)
  61.     (infos)
  62.     (confirm)
  63. )
  64.  
  65. ;---------------------------
  66. ;|Installs lowlevel.library|
  67. ;---------------------------
  68.  
  69. (set @default-dest "libs:")
  70.  
  71. (copylib
  72.     (prompt "Install lowlevel.library?\n(Required for CD32 Joypad!)")
  73.     (help @copylib-help)
  74.     (source "libs/lowlevel.library")
  75.     (dest @default-dest)
  76.     (confirm)
  77. )
  78.  
  79.  
  80. ;--------------------
  81. ;|Installs the fonts|
  82. ;--------------------
  83.  
  84. (set @default-dest "fonts:")
  85.  
  86. (copyfiles
  87.     (prompt "And the fonts...\nWhere do I put them?")
  88.     (help @copyfiles-help)
  89.     (source "fonts/")
  90.     (dest @default-dest)
  91.     (all)
  92.     (confirm)
  93. )
  94.  
  95. ;----------------------------------
  96. ;|Installs the sample cartridge(s)|
  97. ;----------------------------------
  98.  
  99. (set @default-dest (target))
  100.  
  101. (set @default-dest
  102. (askdir    (prompt "Where would you like to store your cartridges?\n(A drawer called Cartridges will be made!)")
  103.     (help @askdir-help)
  104.     (default @default-dest)
  105.     (newpath)
  106.     )
  107. )
  108.  
  109. (set @default-dest
  110.     (tackon @default-dest (cat "Cartridges")))
  111.  
  112. (makedir @default-dest
  113.     (prompt "Making directory...")
  114.     (help @makedir-help)
  115.     (infos)
  116. )
  117.  
  118.  
  119. (copyfiles
  120.     (prompt "Install the sample cartridge to:\n")
  121.     (help @copyfiles-help)
  122.     (source "cartridges")
  123.     (dest @default-dest)
  124.     (confirm)
  125.     (all)
  126. )
  127.  
  128. ;--------------------------
  129. ;|Installs the extra Icons|
  130. ;--------------------------
  131.  
  132. (set @default-dest (target))
  133.  
  134. (set @default-dest
  135. (askdir    (prompt "Where do you want the extra-Icons?\n(A drawer called Icons will be made!)")
  136.     (help @askdir-help)
  137.     (default @default-dest)
  138.     (newpath)
  139.         )
  140.     )
  141.  
  142. (set @default-dest
  143.     (tackon @default-dest (cat "Icons")))
  144.  
  145. (makedir @default-dest
  146.     (prompt "Making directory...")
  147.     (help @makedir-help)
  148.     (infos)
  149. )
  150.  
  151.  
  152. (copyfiles
  153.     (prompt "Install the extra-Icons to:\n")
  154.     (help @copyfiles-help)
  155.     (source "Icons")
  156.     (dest @default-dest)
  157.     (confirm)
  158.     (all)
  159. )
  160.  
  161. ;--------------------------------
  162. ;|Write some copyright stuff Out|
  163. ;--------------------------------
  164.  
  165.  
  166. (set @default-dest (target))
  167.  
  168. (message "\nEnjoy your Gameboy (tm) emulator!\n\n(c) Ville Helin 1996-1997")
  169.